regexpSearch is package{

  fooPattern is (pattern () from (S matching `.*foo.*`));

  subjectPatterns has type relation of ((string, () <= string));
  subjectPatterns is relation{
    ("foo", fooPattern);
  };

  testResult is all D where (D, _) in subjectPatterns;
  
  main() do {
    logMsg(info,"$testResult");
    assert testResult=array of {"foo"};
  }
}